home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / tpugdoodle.d64 / flexislideshow (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  4KB  |  101 lines
  1. 0 REM "[185][185][185][185]FLEXI SLIDESHOW[185][185][185][185]"
  2. 1 :
  3. 4 :    REM..LIST 10000 FOR CREDITS
  4. 5 :
  5. 9 IFFL=1THEN310
  6. 10 POKE2,1:POKE53281,0:POKE53280,11:PRINT""
  7. 11 IFA=0ANDYS=0THENGOSUB1000
  8. 12 IFYS=2THENGOTO15
  9. 13 YS=2:LOAD"HIRES.DMP$CC00.3",8,1
  10. 15 IFA=0THEN POKE55,0:POKE56,92:CLR:DIMA$(20):AU=0
  11. 20 RESTORE
  12. 25 C=11:REM BORDER COLOR
  13. 30 IFA=0THENA=1:GOSUB500
  14. 40 GOSUB700
  15. 198 IFPEEK(197)=49THENAU=0:REM KEYBRD             MATRIX VALUE OF '*'(AUTO OFF)
  16. 199 IFAU=1THENFORTT=1TO50:NEXTTT:I=I+1:GOTO250:REM AUTO MODE
  17. 200 POKE198,0:WAIT198,1:GETB$
  18. 201 IFB$="^"THENAU=1:GOTO199:REM                    '^' SWITCHES AUTO MODE ON
  19. 202 IFB$="[134]"THENC=C-1:POKE53280,C:IFC=0THENC=15:REM  F3 PREVIOUS BORDER COLOR
  20. 203 IFB$="[135]"THENC=C+1:POKE53280,C:IFC=15THENC=0:REM  F5 NEXT BORDER COLOR
  21. 205 IFB$="[139]"THENSYS52224:GOTO200:REM                 F6 1525 M/L SCREEN DUMP
  22. 206 IFB$="1"THENPOKE2,1:REM                          1 FOR SINGLE-SIZE DUMP
  23. 207 IFB$="2"THENPOKE2,2:REM                          2 FOR DOUBLE-SIZE DUMP
  24. 210 IFB$="[140]"THENI=I+1:GOTO250:REM                    F8 NEXT SCREEN W/O MENU
  25. 215 IFB$="[196]"THENGOSUB500:GOSUB700:REM                SHIFT-D FOR NEW DISK
  26. 220 IFB$="[133]"THEN270:REM                              F1 TOGGLE TO MENU
  27. 230 IFB$<"A"ORB$>"Q"THEN200
  28. 240 I=ASC(B$)-64
  29. 250 IFI>17THENI=1
  30. 260 F$="FD"+A$(I)
  31. 265 IFF$="FD--------------"THEN198
  32. 270 POKE53265,59:POKE53272,120
  33. 280 POKE56576,PEEK(56576)AND254
  34. 290 FL=0:IFB$<>"[133]"THENFL=1:LOAD F$,8,1
  35. 310 IFAU=1THENGOTO198
  36. 320 GETT$:IFT$=""THEN320
  37. 325 IFT$<>"[133]"THENB$=T$:T$="":GOTO201
  38. 329 GOSUB330:GOTO360
  39. 330 POKE53265,27:POKE53272,21
  40. 340 POKE56576,PEEK(56576)OR1:RETURN
  41. 360 GOTO200
  42. 500 GOSUB330:PRINTFRE(0);"[147] INSERT PICTURE DISK AND PRESS ANY KEY."
  43. 501 POKE198,0:WAIT198,1:GETA$
  44. 502 PRINT"    PLEASE WAIT. READING DIRECTORY."
  45. 504 FORD=1TO17:A$(D)="--------------":NEXT
  46. 505 OPEN2,8,0,"$0:FD*":GET#2,A$,A$:D=-1:GOTO527
  47. 510 GET#2,A$:IFST<>0THENCLOSE2:I=0:RETURN
  48. 515 IFA$<>CHR$(34)THEN510
  49. 517 A$(D)=""
  50. 520 GET#2,A$,A$:REM CANCEL 'FD'
  51. 525 GET#2,A$:IFA$<>CHR$(34)THENA$(D)=A$(D)+A$:GOTO525
  52. 526 GET#2,A$:IFA$<>""THEN526
  53. 527 GET#2,A$,A$,A$,A$
  54. 530 D=D+1:GOTO510
  55. 700 PRINT"[147][142][154]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  56. 701 PRINT"[154] [176][179][158] FLEXISLIDESHOW [146][154][171][192][192][179][129]W.SCHMIDT/R.W[154][171][192][174]"
  57. 710 PRINT"[154] [194][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [194]"
  58. 720 PRINT" [221] A[146] "A$(1)TAB(21)"I[146] "A$(9)TAB(38)"[154][221]"
  59. 730 PRINT" [221] B[146] "A$(2)TAB(21)"J[146] "A$(10)TAB(38)"[154][221]"
  60. 740 PRINT" [221] C[146] "A$(3)TAB(21)"K[146] "A$(11)TAB(38)"[154][221]"
  61. 750 PRINT" [221] D[146] "A$(4)TAB(21)"L[146] "A$(12)TAB(38)"[154][221]"
  62. 760 PRINT" [221] E[146] "A$(5)TAB(21)"M[146] "A$(13)TAB(38)"[154][221]"
  63. 770 PRINT" [221] F[146] "A$(6)TAB(21)"N[146] "A$(14)TAB(38)"[154][221]"
  64. 780 PRINT" [221] G[146] "A$(7)TAB(21)"O[146] "A$(15)TAB(38)"[154][221]"
  65. 790 PRINT" [221] H[146] "A$(8)TAB(21)"P[146] "A$(16)TAB(38)"[154][221]"
  66. 795 PRINT" [221]"TAB(12)"Q[146] "A$(17)TAB(38)"[154][221]"
  67. 797 PRINT" [173][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][189]"
  68. 798 PRINT"   [192][192][192][192][192][192][179]SHIFT-D FOR NEW DISK[154][171][192][192][192][192][192][192]
  69. 799 [143]    PRINT"  FOR CONTINUOUS     FROM MENU,SELECT
  70. 800 REM    PRINT"  VIEW OF SCREENS [158]OR[146][129] LETTER[154] TO LOAD &
  71. 801 [143]    PRINT"  LOADING, USE FORF8WAITCONT    VIEW EACH DOODLE
  72. 802 REM    PRINT"  [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]    [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][154]
  73. 803 [153]" ORTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTAN^
  74. 820 PRINT" [221] PRESS [129]F1[146]  TO TOGGLE TO & FROM MENU[154] [221]"
  75. 821 PRINT" [221]  ... [129]A[146]TO[129]Q[146] TO SELECT LOAD & VIEW   [154] [221]"
  76. 822 PRINT" [221]  ...  [129]F8[146]  TO LOAD NEXT SCREEN     [154] [221]"
  77. 823 PRINT" [221]  ...  [129] ^  TO START AUTO SEQ. LOAD [154] [221]"
  78. 824 PRINT" [221]  ...  [129] *  & HOLD[146] TO STOP AUTO LOAD[154] [221]"
  79. 825 PRINT" [221]  ...  [129]F3[146]  TO CHANGE BORDER COLOR(-)[154][221]"
  80. 826 PRINT" [221]  ...  [129]F5[146]  TO CHANGE BORDER COLOR(+)[154][221]"
  81. 827 PRINT" [221]  ...  [129]F6[146]  FOR 1525 M/L BIT-MAP DUMP[154][221]"
  82. 828 PRINT" [221]  ... [129]1[146]OR[129]2[146]    (SINGLE/DOUBLE-SIZE)  [154][221]"
  83. 830 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  84. 835 RETURN
  85. 998 :------------------------
  86. 999 REM CHOICE FOR LOADING                      1525 M/L BIT-MAP DUMP
  87. 1000 YS=0:PRINT"[147] WOULD YOU LIKE TO LOAD THE HIRES DUMP                   (Y/N)?"
  88. 1010 GETYS$:IFYS$=""THEN1010
  89. 1020 IFYS$="N"THENYS=2:RETURN
  90. 1030 IFYS$="Y"THENYS=1:PRINT"[147] LOADING...":RETURN
  91. 1040 GOTO1010
  92. 1050 :-----------------------
  93. 10000 :    REM"[184][184][184][184][184][184]CREDITS[184][184][184][184][184][184][184][184]"
  94. 10010 :    REM MENU SELECT DEMO (RGW)
  95. 10020 :    REM RICHARD G. WILMOTH             :        NEWPORT NEWS,VA
  96. 10030 :    REM SUBSTANTIAL FUNCTIONAL &       :        COSMETIC ENHANCEMENTS BY
  97. 10039 :    REM WAYNE R. SCHMIDT,NYC
  98. 10040 :    REM DIRECTORY READ ROUTINE
  99. 10045 :    REM     WRITTEN BY...
  100. 10050 :    REM *** ANTHONY MANSO ***
  101.